AUSTRALIAN OS9 NEWSLETTER 



interleave value: On decimal) @FREE Syntax: 

number of free sectors on a device @GFX 

Usage : Graphics interface package for 

graphics commands @GFX2 Syntax: RUN 

Graphics interface package for BASIC09 to 



imn 



■■?> r 



EDITOR 

SUB-EDITOR 

TREASURER 

LIBRARIAN 

SUPPORT 



Gordon Bentzen 
Bob Devries 
Don Berrie 



Jean-Pierre Jacquet (07) 372-4675 
Fax Messages (07) 372-8325 

Brisbane 089 Users Group 



(07)344-3881 
(07)372-7816 
(07)375-1284 



none 
i;^raphics/ 

|i|on-line 



sides 'No. of cyiinders' Qn decimal) 

Free [devname] Usage : Displays 

Syntax: RUN GFX(<func^<args>) 

BASIC09 to do compatible VDG 

GFX2([path]<funct><args>) Usage : 

handle 

Usage 

window 

help to 

(S)IDEN 

from 05 

single Ur 

director\ 

@INKE^^ 

input a : 

the pro* 

memorv 



text files <^^^^^^^^^^^^^^^^^§^^^^^^^^^^^^^^s into 
memory @MAKblR Syntax: Makdii' <pathname> Usage : Creates a new 
directory file @MDIR Syntax: Mdir [e] Usage : Displays the present m.emory 
module directory Opts : e = print extended module directory @MEPvGE Syntax: 




g^ll^^fsp^^i^isp^ 



Merge <path> 

@MFREE Svnt 

@MODPATCH Edi to na i U ^X^m l: 



Address es fo r CQrT CS p<?nden c e 



(tMi6<M 



Gordon Bentzen 
8 (3din Street 
SUN NY BA NK Qld 41 09 



memorv from c 

compare modul 

to module C o 

module M = mj ^ „ ^ „ 

Usa^^e • Set m( Subscri pti ons ^ Library Reques ts ; 

monochrome n- Jean-Pierre Jacquet 

and links an OS 27 Hampton Street 

Procs [e] Usag. DURACK Old 4077 

display all pro jujj j w^wui 

current data direc 





u output 

L\M m.emory 

module in 

rninss -c = 

ame = link 

V = verify 

ntype [opt] 

^Honiior m = 

fee : Creates 

S Svntax: 

»■ 

Oots : e = 

Prints the 

ithe current 



execution directoiy path @REN.\}vIE Syntax: Rename <filename> <new filename> 
Usage : Gives the file or directory a nevv* name @P.UNB Syntax: Runb <i-code 



modLile> 
[vy/mrr 
Syntax: 
num (s 



W'^ot:* - RASirnQ run tim p rt^rkc^oi;^ ^SF • IMF Svnr-.^v* Sptiinp 



^®i!:i::2:ii'^ S 



^:m<t If^ 




^rjm^um 



the operating parameters of the terminal ^TLTSJEFORT Tuneport </tl or /p> 
[value] Adjust the baud value for the serial port (©UNLINK Syntax: Unlink 
<modname> Usage : Unlinks moduIe(s) from memory @WCREATE Syntax: 



AUSTRALIAN OS 9 NEWSLETTER 

Newsletter of the National 0S9 User Group 

Volume 6 Niimber 5 



EDITOR : GordoQ Beatzea 
SUBEDITOS : Bob Devries 



SUPPOiT : Brisbaae 0S9 Level 2 Users Group, 



TREASURER : Dod Berrie 
LIBIARIAI : Jeaa-Pierre Jacqaet 



Those of you who are also supporters of the Australia& 
CoCo'Liak lagaziae would no doubt be aware that CoCo-Llak 
will cease production with the Deceiber 1992 edition. 
Ve are of course saddened to hear this news and would 
like to offer our congratulation to Robbie Dalzell, Garry 
Holder, Sub-Editors and the other helpers for the great 
job they have done over the past few years. Their 
genuine efforts to help CoCo users and to keep the CoCo 
coMunity alive is to be conitended, well done. 

Ve have covered lany tiies our disappointient with the 
Tandy decision to quit the CoCo and I don't want to go 
into that again. It is however quite an achieveient that 
CoCo Usergroups and tagazines have been able to continue 
for a couple of years after Tandy dropped the product AHD 
their support. 

The Australian 0S9 Usergroup continues on with the 
proiiise of bigger and better things in the future. 0S9 
level 2 on the CoCo3 & 6809 is still hard to beat in lany 
ways. The huible CoCo is certainly not able to latch the 
speed; video displays and sany other beaut things on 
offer in the luu 0S9 lachines but the CoCo3 with 
Kicroware's 0S9 L2 has set the others a real challenge in 
such things as the 12 windowing systes. 

Ve believe that the new 0S9 69K platforis such as the 
HM/I, Deliar and Frank Eogg^s lacbines will ensure a 
growing following of 0S9 and oaybe even OS9000 on those 
m and 486 P.C's. 

0S9 Usergroups in one fori or another are on the 
increase. Inforiation about the OCH Consunity on Fido has 
been featured in previous editorials, as well as this we 



are seeing talk of the old U.S. 0S9 Usergroup being 
reforied with lany of those notable nates involved. 

Of course it lay be that we will also have to fold up one 
day, but that will be a decision that you, the leibers, 
will lake. Until then we plan to bring news and articles 
of interest to help all leibers enjoy 0S9. 



IS THIS EDITI08 

Our tutorial in the 'C prograuing language continues 
with Chapter 8. The Rainbow 0S9 article index continues 
with the 1990 listing. 

Bob Devries has generously supplied yet another 'C 
prograue, coiplete with source code. This prograiie 
will convert an Aiiga Sound Saiple file so that it lay be 
used with the 0S9 'Play'. 

A disk reader/verifier prograuer in 'C, also by Bob 
Devries is included. 

Ve have all seen the "More" utility in use under MS-DOG 
or the 'C version on a CoCo. Veil in this edition we 
have the source for 
for you to type in. 



an asseibler version by Boisy Pitre 



Ve do hope that you find soiething useful in this edition 
and renind you that our P.D. library continues to grow 
slowly with all sorts of interesting and useful utilities 
and programes froii oveseas and local authors. All these 
and our UGCAT (Catalogue of Usergroup P.D. software) are 
available for our usual noiinal copy fee. 

Cheers, Gordon. 



ooooooooooOOOOOOOOOOoooooooooo 

A C Tutorial 
Chapter 8 - Pointers 



VHAT IS A POISTER? 

Siiply stated, a pointer is an address. Instead of 
being a variable, it is a pointer to a variable stored 
soiewhere in the address space of the prograi. It is 
always best to use an esaiple so load the file naied 
POIBTER.C and display it on your lonitor for an exaiple 
of a prograi with sone pointers in it. For the loient, 
ignore the data declaration stateient where we define 
'index' and two other fields beginning with a star. It 



is properly called an asterisk, but for reasons we will 
see later, let's agree to call it a star. If you observe 
the first stateient, it should be clear that we assign 
the value of 39 to the variable 'index'. This is no 
surprise, we have been doing it for several prograis now. 
The next stateient however, says to assign to 'ptl' a 
strange looking value, naiely the variable 'index' with 
an aipersand in front of it. In this exaiple, ptl and 
pt2 are pointers, and the variable 'index' is a siiple 
variable. 
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Nof fe have a problei. Ve aeed to learn hot to uae 
pointers in a prograi, but to do so requires that first 
fe define the leans of using the pointers in the prograi. 
The following two rules fill be soiethat confusing to you 
at first but fe need to state ,the definitions before te 
can use then. Take your tiie, and the vhole thing fill 
clear up very quickly. 

m 7ERT IMPORTAST RULES 

The follofing tfo rules are very inportant fhen using 
pointers and fiust be thoroughly understood. 

i. A variable nane fith an aipersand in front of it 
defines the address of the variable and therefore 
points to the variable. You can therefore read line 
six as 'ptl is assigned the value of the address of 
index'. 

2. A pointer fith a 'star' in front of it refers to the 
value of the variable pointed to by the pointer. 
Line nine of the prograi can be read as 'The stored 
(starred) value to fhich the pointer 'ptl' points is 
assigned the value 13'. Hof you can see fhy it is 
convenient to think of the asterisk as a star, it 
sort of sounds like the ford store. 

HEHORT AIDS 

L Think of & as an address. 

2. Think of * as a star referring to stored. 

Assuie for the loient that 'ptl' and 'pt2' are 
pointers (fe fill see hof to define then shortly). As 
pointers, they do not contain a variable value but an 
address of a variable and can be used to point to a 
variable. Line six of the prograi assigns the pointer 
'ptl' to point to the variable fe have already defined as 
'index' because fe have assigned the address of 'index' 
to 'ptl'. Since fe have a pointer to 'index', fe can 
lanipulate the value of *index' by using either the 
variable naie itself, or the pointer. Line nine lodifies 
the value by using the pointer. Since the pointer 'ptl' 
points to the variable 'index', then putting a star in 
front of the pointer naie refers to the leiory location 
to fhich it is pointing. Line nine therefore assigns to 
■index' the value of 13. Anyplace in the prograi fhere 
it is periissible to use the variable naie 'index', it is 
also periissible to use the naie '*ptl' since they are 
identical in leaning until the pointer is reassigned to 
soie other variable. 



seven, it doesn't point to anything, it contains garbage. 
Of course, that is also true of any variable until a 
value is assigned to it. Stateient seven assigns 'pt2' 
the saie address as 'ptl', so that nof 'pt2' also points 
to the variable 'index'. So to continue the definition 
froi the last paragraph, anyplace in the prograi fhere it 
is periissible to use the variable 'index', it is also 
periissible to use the naie '*pt2' because they are 
identical in leaning. This fact is illustrated in the 
first 'printf stateient since this stateient uses the 
three leans of identifying the saie variable to print out 
the saie variable three tiies. 

THERE IS OSLI OSE VARIABLE 

Bote carefully that, even though it appears that 
there are three variables, there is really only one 
variable. The tfo pointers point to the single variable. 
This is illustrated in the next stateient fhich assigns 
the value of 13 to the variable 'index', because that is 
fhere the pointer 'ptl' is pointing, The next 'printf 
stateient causes the nef value of 13 to be printed out 
three tiies. Keep in lind that there is really only one 
variable to be changed, not three. This is adiittedly a 
very difficult concept, but since it is used extensively 
in all but the lost trivial C prograis, it is fell forth 
your tiie to stay fith this laterial until you understand 
it thoroughly. 

HOW DO YOU DECLARE A POIHTER? 

Hof to keep a proiise and tell you how to declare a 
pointer. Refer to the third line of the prograi and you 
fill see our old faiiliar fay of defining the variable 
'index', foUofed by tfo lore definitions. The second 
definition can be read as 'the storage location to fhich 
'ptl' points fill be an int type variable'. Therefore, 
■ptl' is a pointer to an int type variable. Likefise, 
'pt2' is another pointer to an int type variable. A 
pointer lust be defined to point to soie type of 
variable. Follofing a proper definition, it cannot be 
used to point to any other type of variable or it fill 
result in a 'type incoipatibility' error. In the saie 
lanner that a 'float' type of variable cannot be added to 
an 'int* type variable, a pointer to a 'float' variable 
cannot be used to point to an integer variable. Coipile 
and run this prograi and observe that there is only one 
variable and the single stateient in line 9 changes the 
one variable fhich is displayed three tiies. 

THE SEC08D PROGRAM WITH POIHTERS 



AHOTHER POIHTER 

Just to add a little intrigue to the systei, fe have 
another pointer defined in this prograi, 'pt2'. Since 
'pt2' has not been assigned a value prior to stateient 



In these fef pages so far on pointers, fe have 
covered a lot of territory, but it is iiportant 
territory. Ve still have a lot of laterial to cover so 
stay in tune as fe continue this iiportant aspect of C. 
Load the next file naied P0II1TER2.C and display it on 
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your loaitor so «e caa coatinue our study. Iq this 
prograi te have defiaed several variables and two 
pointers. The first pointer naied 'there' is a pointer 
to a 'char' type variable and the second naied "pt' 
points to an 'int' type variable. Hotice also that we 
have defined two array variables naned 'strg' and 'list'. 
Ve fill use then to show the correspondence between 
pointers and array naies. 

A STRIiG VARIABLE IS ACTUALLy A POIHTER 

In the programing language C, a string variable is 
defined to be siiply a pointer to the beginning of a 
string. This fill take sone explaining. Refer to the 
exaiple progran on your lonitor. You till notice that 
first fe assign a string constant to the string variable 
naned 'strg' so te till have sone data to fork fith. 
Hext, fe assign the value of the first elenent to the 
variable 'one', a siiple 'char' variable. Sext, since 
the string naie is a pointer by definition of the C 
language, fe can assign the sane value to 'tfo' by using 
the star and the string naie. The result of the tfo 
assignnents are such that 'one' nof has the saie value as 
'tfo', and both contain the character 'T', the first 
character in the string. 

Sote that it fould be incorrect to frite the ninth 
line as 'tfo = *strg[Ol;' because the star takes the 
place of the square brackets. For all practical 
purposes, 'strg' is a pointer. It does, however, have 
one restriction that a true pointer does not have. It 
cannot be changed like a variable, but nust always 
contain the initial value and therefore always points to 
its string. It could be thought of as a pointer 
constant, and in soie applications you say desire a 
pointer that cannot be corrupted in any way. Even though 
it cannot be changed, it can be used to refer to other 
values than the one it is defined to point to, as we will 
see in the next section of the progran. Moving ahead to 
line 12, the variable 'one' is assigned the value of the 
ninth variable Isince the indexing starts at zero) and 
'two' is assigned the saie value because we are allowed 
to index a pointer to get to values farther ahead in the 
string. Both variables now contain the character 'a'. 

The C programing language takes care of indexing for 
us autoaatically by adjusting the indexing for the type 
of variable the pointer is pointing to. In this case, 
the index of 8 is siiply added to the pointer value 
before looking up the desired result because a 'char' 
type variable is one byte long. If we were using a 
pointer to an 'int' type variable, the index would be 
doubled and added to the pointer before looking up the 
value because an 'int' type variable uses two bytes per 
value stored. Vhen we get to the chapter on structures, 
we will see that a variable can have iiany, even into the 
hundreds or thousands, of characters per variable, but 



the indexing will be handled autoiatically for us by the 
systei. Since 'there' is already a pointer, it can be 
assigned the value of the eleventh eleient of 'strg' by 
the stateoent in line 16 of the prograi. Reienber that 
since 'there' is a true pointer, it can be assigned any 
value as long as that value represents a 'char' type of 
address. It should be clear that the pointers lust be 
'typed' in order to allow the pointer arithaetic 
described in the last paragraph to be done properly. The 
third and fourth outputs fill be the saie, naiely the 
letter 'c'. 

POIHTER ARITHMETIC 

Hot all foris of arithietic are pernissible on a 
pointer. Only those things that lake sense, considering 
that a pointer is an address soiefhere in the coiputer. 
It fould lake sense to add a constant to an address, 
thereby loving it ahead in leiory that nuiber of places. 
Likefise, subtraction is periissible, loving it back soie 
nuiber of locations. Adding tfo pointers together fould 
not lake sense because absolute leiory addresses are not 
additive. Pointer lultiplication is also not allowed, as 
that would be a funny nuiber. If you think about what 
you are actually doing, it will lake sense to you what is 
allowed, and what is not. 

NOV FOR AH IHTEGER POIHTER 

The array naied 'list' is assigned a series of values 
froi 100 to 199 in order to have soie data to work with. 
Hext we assign the pointer 'pt' the value of the 28th 
eleient of the list and print out the saie value both 
ways to illustrate that the systei truly will adjust the 
index for the 'int' type variable. You should spend soie 
tiie in this prograi until you feel you fairly well 
understand these lessons on pointers. Coipile and run 
P0IHTER2.C and study the output. Tou lay recall that 
back in the lesson on functions we lentioned that there 
were two ways to get variable data back froi a function. 
One vay is through use of the array, and you should be 
right on the verge of guessing the other way. If your 
guess is through use of a pointer, you are correct. Load 
and display the prograi naied TVOVAY.C for an exaiple of 
this. 

FUHCTIOH DATA RETURH VITH A POIHTER 

In TSfOVAY.C, there are two variables defined in the 
lain prograi 'pecans' and 'apples'. Hotice that neither 
of these is defined as a pointer. Ve assign values to 
both of these and print thei out, then call the function 
'fixup' taking with us both of these values. The 
variable 'pecans' is siiply sent to the function, but the 
address of the variable 'apples' is sent to the function. 
How we have a problei. The two arguients are not the 
saie, the second is a pointer to a variable. Ve lust 
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Boiehoff alert the function to the fact that it is 
sapposed to receive an integer variable and a pointer to 
an integer variable. This tarns out to be very siiple. 
Botice that the paraieter definitions in the function 
define "nuts* as an integer, and 'fruit* as a pointer to 
an integer. The call in the lain prograi therefore is 
now in agreeient with the function heading and the 
prograi interface will work just fine. In the body of 
the function, we print the two values sent to the 
function, then lodify thei and print the new values out. 
This should be perfectly clear to you by now. 

The surprise occurs when we return to the lain 
prograi and print out the two values again. Ve will find 
that the value of pecans will be restored to its value 
before the function call because the C language lakes a 
copy of the itei in question and takes the copy to the 
called function, leaving the original intact. In the 
case of the variable 'apples', we lade a copy of a 
pointer to the variable and took the copy of the pointer 
to the function. Since we had a pointer to the original 
variable, even though the pointer was a copy, we had 
access to the original variable and could change it in 
the function. Vhen we returned to the lain prograi, we 
found a changed value in 'apples' when we printed it out. 
By using a pointer in a function call, we can have access 
to the data in the function and change it in such a way 
that when we return to the calling prograi, we have a 
changed value of data. It lust be pointed out however, 
that if you nodify the value of the pointer itself in the 
function, you will have a restored pointer when you 
return because the pointer you use in the function is a 
copy of the original. In this exaiple, there was no 
pointer in the lain prograi because we siiply sent the 



address to the function, but in lany prograis you will 
use pointers in function calls. One of the places you 
will find need for pointers in function calls will be 
when you request data input using standard input/output 
routines. These will be covered in the next two 
chapters. Coipile and run TV0VA7.C and observe the 
output. 

POIiTEHS AHE VALUABLE 

Even though you are probably soiewhat intiiidated at 
this point by the use of pointers, you will find that 
after you gain experience, you will use thei profusely in 
lany ways. You will also use pointers in every prograi 
you write other than the lost trivial because they are so 
useful. 7ou should probably go over this laterial 
carefully several tiies until you feel coifortable with 
it because it is very iiportant in the area of 
input/output which is next on the agenda. 

FROGRAMMIBG EXERCISES 

1. Define a character array and use 'strcpy' to copy a 
string into it. Print the string out by using a loop 
with a pointer to print out one character at a tiie. 
Initialize the pointer to the first eleient and use 
the double plus sign to increient the pointer. Use a 
separate integer variable to count the characters to 
print. 

2. Modify the prograi to print out the string backwards 
by pointing to the end and using a decreienting 
pointer. 



ooooooooooOOOOOOOOOOoooooooooo 

CoCo-Link 
CoCo-Link is an excellent lagazine to help you with the RSDOS side of the Colour Coiputer. It is a bi-ionthly lagazine 
published by Mr. Robbie Dalzell. Send your subscriptions to: 

CoCo-Link 

U Hedlands Crescent 

Ft. Hoarlunga Sth. 

South Australia 

Phone: (08) 3861647 

ooooooooooOOOOOOOOOOoooooooooo 

An Index of Rainbow 0S9 Articles 

coipiled by Bob Devries 

January - Deceiber '90 



January 1990 page 110 

One Label or Two - A siiple label-iaker prograi. 

Kevin Deneen 



Breakpoint - Don't spend all 

disk. 

Greg Law 



day looking for a certain 



January 1990 page 56 



January 1990 page 117 
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ElSSable 0S9 - Talking about modularity. 
Dale L. Puckett 

February L990 page 56 

Drive With Speed - Verify takes your 0S9 floppy drives 

fork luch faster. 

Stephen B. Goldberg 

February 1990 page 122 

Breakpoint - Exaiining a technique for parsing couand 

line paraneters in C. 

Greg Law 

March 1990 page 86 

Do the Split - Making large files easier to handle. 

Stephen B. Goldberg 

March 1990 page 96 

Breakpoint - Giving it top priority. 

Greg Law 

March 1990 page 65 

ElSSable 0S9 - Tales of a new iiproved 0S9 Level II for 

the Color Coiputer 3. 

Dale L. Puckett 

April 1990 page 44 

Predicting Profits - A helpful prograi for those planning 

a career in business. 

David Macias 

April 1990 page 113 

Breakpoint - Talking about conversions and diversions. 

Greg Law 

April 1990 page 52 

ElSSable 0S9 - A new look for 0S9. 

Dale L. Puckett 

May 1990 page 46 

Larry's Labeler - Organizing your floppy disks. 

Larry Pittsan 

May 1990 page 30 

Breakpoint - Directories and 0S9 file structure. 

Greg Laf 

June 1990 page 36 

Type Does Vindofs - A utility to sfitch findof types. 

Chris Sfinefurth 

June 1990 page 44 

Breakpoint - Scaling the directory tree. 

Greg Law 

July 1990 page 32 

For Your Eyes Only - Logon protection for the single-user 



0S9 systeft. 
Stephen B. Goldberg 

July 1990 page 72 

Breakpoint - The lissing link. 

Ggreg Law 

July 1990 page 48 

ElSSable 0S9 - Loan procedures for MYFinance. 

Dale L. Puckett 

August 1990 page 20 

CoCo 3 GIME CART* IRQs Explained - A software technique 
that elininates the cartridge interrupt problem. 
Bruce Isted. 



August 1990 page 64 
Living Without Line Huibers 
never cease? 
Dean Bergiann 



Will the virtues of Basic09 



August 1990 page 72 

Breakpoint - Basic09 Interfacing. 

Greg Law 

August 1990 page 38 

ElSSable 0S9 - CoCo 3 does windows. 

Dale L. Puckett 

Septeiber 1990 page 83 

If Wife = 'Sue,' Bring your Potato Salad - Produce 

personalized docusents with this handy ftail-serge 

utility. 

Christopher Jackson 

Septeiber 1990 page 28 
Breakpoint - Reading and writing. 
Greg Law 

Septeiber 1990 page 39 

ElSSable 0S9 - 0S9 gets the grades. 

Dale L. Puckett 

October 1990 page 44 

Displaying Picture Files - Picture storage fonats and 

displaying isages under 0S9 Level II. 

Til Eientzle 

October 1990 page 30 
Breakpoint - Easy access. 
Greg Law 

October 1990 page 58 

ElSSable 0S9 - 0S9 graphics priiitives. 

Dale L. Puckett 

Hovenber 1990 page 48 
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Displaying Picture Files, Part II - Rua-length decoding 
techniques and displaying iiages with 059 level II. 
Til Kientzle 

Hoveiber 1990 page 27 

KISSable 0S9 - Autoaating the oiiiine experience. 

Dale L. Puckett 

Deceiber 1990 page 34 

Displaying Pictures Using 0S9 Level II Graphics, Part III 

- Another look at data- coipression techniques. 

Tin Kientzle 



Decesber 1990 page 41 

Alara - A look at sounding the alan under 0S9 

David P Boynton 

December 1990 page 87 
Breakpoint - 'tis the C zen. 
Greg Law 

Deceiber 1990 page 21 

KISSable 0S9 - Legends of the C. 

Dale L. Puckett 



ooooooooooOOOOOOOOOOoooooooooo 

Converting Aiiga 9SVX sound saiples 
for coipatibility with PLAY 



Vith the proliferation of MODEMS aiong CoCo oiners, 
coies the likelyhood of acquiring files froi other 
coiputers, Soietiies these files can be considerable 
fun to use under 0S9 on the CoCo. The files I have been 
able to lake use of are the IFF 85YX sound saiple files 
froi the Coiiodore Aiiga. IFF stands for Interchange 
File Foriat, and 8SYX stands for 8 bit Saipled Yoice. 
Most Aiiga sound saiple files cone as IFF foriat, and 
have a 'header' of soie 60 bytes tacked onto the 



beginning of each file to identify it. To allot the PD 
'play' couand to autoiatically playback these files, 
this header lust be stripped off, and replaced by two 
bytes to tell 'play' that the file is froi an Ailga, the 
first byte, and the playback speed, the second byte. To 
this end I created the following prograue convSsvi in C. 
Coipile it using the norial C coipiler usage. So special 
headers or libraries are required. 

Bob Devries. 



Convert 8SVX sound saiples froi Aiiga files */ 
Copyright (c) 1992, by Bob Devries */ 
Periission is hereby granted for the non-profit */ 
distribution of this prograue as long as the *f 
source code is included, and this header is left V 
intact */ 



^include (stdio.h) 

struct fori8svx ( 
char fori[4|; 
long flen; 
char 3vx[M; 

1; 

struct head | 
char header[4I; 
long blklen; 

1; 

struct vce8 ( 
long oneshot; 
long repeat; 
long saiphi; 
iat speed; 
char octave; 
char coip; 
long voluie; 



lainlargc, argv) 
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iat argc; 
char *arg7[I; 

I 

stract foriBsvK Cri8; 

struct head hdr; 

struct vce8 voiceB; 

iQt ch; 

loag chuQklea; 

char Qaie[256l; 

FILE *ifp, *ofp, *fopea(); 

3etbuf(stdiii,NULL); /* set buffer to HULL so slagle Ibj forks V 

setbaffstdoutJULL); 

pflinitO; 

if(argc != 3) ( /* silly user tell hii hof */ 

printfl 'Usage: ts (infile) <outfLle>\n",argv[Ol); 

exLt(l); 
1 
if(acce33(argv[2l,27) != -1| | /* file exists - penissioQ OK? */ 

priatf('\nFile \'ts\' exists ! Overwrite 7/1 k»,argv[2K7); 

ch = getcharO; 

putchar('\a'l; 

if (toupper(ch) != 'Y'l exit(2I8|; 
} 
ifdifp = fopea(argv[l]/r»)l == HULL) | /* problei readiag file »/ 

printfCCan^t open U\nVargv[ll); 

exit(errno|; 
1 
if((ofp = fopen|argv[2l,"f')) == HULL) ( /* problei creating file */ 

priatf("Can't create h\n",arg7[21); 

exit(errno); 
1 
/* if the file in less than 12 bytes long it's WOHG! */ 

if(fread(i;frii8,sizeof(frB8),l,i£p) != U [ 

closeall(ifp,ofp,argv[2]); 

printfl'Incorrect file type in h\n",argv[l]); 

exitll); 
I 

/* if the word FORM is not present then illegal file type */ 
if((strcip(fri8. fori, "FORK') != 0) && |8trcip(fri8.3Vx/8SVXM != 0)) ( 

clo3eall(ifp,ofp,argv[2l); 

printflMs is not an 8SVX saiple file!\nSargv[lI); 

exitlD; 

1 
fhile(!feof(ifp)) ( 

if(fread(&hdr,3izeof(hdr|,l,ifp| == HULL) ( /* get chunk header V 
closeall(ifp,ofp,argv[2l); 
printfCError readiag ^s\nVargv[II); 
exit(errno); 
1 

if((hdr.blklen S IL) == IL) hdr.blkleaH; /* 68000 pads to even len */ 
printf("Chunk \s of length Ud bytes. \n', hdr. header, hdr. blklen); 
if (strciplhdr. header, 'BODTN == 0) break; /* BODY chunk V 
if |strcip(hdr. header, "HAKE') " 0) ( 

if|fread(naie,(int)hdr.blklea,l,ifp) == HULL) | 
clo3eall(ifp,ofp,argv[2]); 
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printfCBrror readiag l8\a',argv[l]); 
exitlerrno); 
else I 
printfCBaie = t8\n',naie); 
coQtinae; 



if (3trcip(hdr. header, "YHDS') == 0) 1 /* VoiceSHeader */ 
if(fread(ivoice8,8izeof(voice8),l,ifp) == HULL) I 

cloaeall|ifp,ofp,argv[2!); 

priiitf("Error reading U\n*,arg7[lll; 

exit(errno); 
1 else ( 

continue; 



if(fseek(ifp,hdr.blklen,l) == EOF) I 
clo8eall(ifp,ofp,arg7[2l); 
printfCError reading t3\n",argv[2] 
exitll); 



putc(0x80,ofp); 

pQtc((char)(7oice8.8peed/250),ofp); 
chunklen = hdr.blklen; 
do 1 

ch = getc(ifp); 

putc(ch,ofp); 
1 while ("Chunklen > 0); 
fcloselifp); 
fclo8e(afp); 
priatfCDone .... lc\n",7); 



cla8eall(in,out,naie' 

FILE nn; 

FILE *aut; 

char *naie; 

( 

fcla8e(iQ); 

fclose(out); 

unlinklnaie); 



ooooooooooOOOOOOOOOOoooooooooo 
VerDisk - Disk verify coaiand for 0S9 



YerDisk vas created froi a need to soietiies be able lext YerDisk reads LSHO of the target disk to 

to check whether a disk had errors on it, without going deteriine how lany sectors to read and then reads thes 

to the rather lengthy trouble of reading all the files one by one, and reports if any errors were found. It 

on it, one by one. will not quit on error until the last sector is read. 

VerDisk first opens the target disk as a VerDisk can take lultiple device nates on the 

directory, and reads the FD_OPTS of the path to tell couand line, and will proceed to check each one of thei. 

whether it is an 8BF device. Bob Devries 

/* VerDisk - Verify integrity of disk sectors */ 
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/* Does a sector read for every sector */ 

/* of the target dislL. ♦/ 

/* Copyright |c) 1992. By Bob Devries, */ 

/* Freely distributable for QOQ-profit oaly. */ 

tiaclude (atdio.h} 
Hefiae E9B0E (-1) 

/* The follofiag struct is included here because the oae * 
/* supplied ia 'sgstat.h' does not have an identifier, and * 
/* so cauQot be used. You lay care to lodify the relevant * 
/* part. * 



struct rbfopt ( 

char sg_class, 
sgjrive, 
sgjtep, 
sgjtype, 
sgjense; 

int sg_cyls; 

char sgjides, 
sgjerify; 

int sgjpt, 
sgjptO; 

char sgjntiv, 
sgjalloc, 
sgjfi; 

int sgjxten; 

char sgjnx, 
sgjtt, 
3g_fdp3n[3^ 
sg_dip3n[3' 

long sgjirptr; 

int sg dvt; 

1; 

union disksize ( 
long nuisec; 
char t3ec[41; 



/* device class - repeated froi above 

/* drive nuiber 

/* step rate 

/* device type 

/* density capability 

/* nuiber of cylinders (tracks) 

/* nuiber of sides 

/* = verify on writes 

/* default sectors per track 

/* ditto track 

/* sector interleave factor 

/* segient allocation size 

/* dia transfer lode 

/* path extension for record locking 

/* junk fill 

/* file attributes 

/* file descriptor PSH 

/* file's directory PSM 

/* directory entry pointer 

/* address of device table entry 



nainlargc, argv) 
int argc; 
char *argv[I; 

( 

char 3ector(256]; 

char devnaie[32|; 

long pos; 

int i = L; 

union disksize daiz; 

struct rbfopt *rbf; 

int op; 

FILE *fp; 

pflinitj); /* we'll be printing longs */ 

dsiz.tsecIO] = '\0'; 

if(!--argcl | /* duib user, tell hii how it's done */ 

printfCUsage: \s /devnaie [/devnaie] ...\n*,argv[Ol); 
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exit(215); 
1 
fhile(argc"l ( 

printfCU: Checking h\a*,argv[0l,arg7[il); 

3trcpy(devnaie,argv[il); 

ifdfp = fopenldevnaie/d")) == HULL) I /* open as DIR */ 

printfC^a: Can't open U\n",argv[Ol,argv[il); 

in; 

continue; /* get next devnaie if possible */ 
1 

get8tat((l,fp,rbf); /* get PDJPTS section of path */ 
if(!(rbf-)sg_cla88 != 1)) I /* wrong device type */ 

printf("t3 is not an RBF device\n",arg7[i]); 

closelfp); 

i++; 

continue; 
1 

fclose(fp); 
strcatldevnaie,"!'); 

op = open(devuaie,J£AD); /* had to do openO to do ratread */ 
lseek(QP,01,0|; /* seek to start of disk and */ 
if((read(op,dsiz.tsec+l,3)| == EOF) ( /* read first 3 bytes */ 

priatfCU: Could not get disk size of U\n",arg7[0l,argv[i]); 

closelfp); 

i++; 

continue; 

1 

lseeklop,l)l,0); /* seek back to start */ 

for(pos=0;po3 ( d3iz,nuisec;po3++) [ 

if(read(op, sector, 256) == ERROR) ( /* read sectors */ 

printfl'Sector Ud ($UX) on U is bad\nVpos,pos,arg7[iI); 



closelop); /* finished with this one */ 
i++; /* point to next */ 



/* EOF */ 



ooooooooooOOOOOOOOOOoooooooooo 



MORE - Proi Boisy G. Pitre 



Ok guys and gals, here's the newest edition of ly 'tore' 
utility. This one handles lultiple files and has a few 
extra options. Hope you like it. 

Enjoy! 

More - Proipts lists a file or files one 
screen at a tiie. 
If no files are specified, STDIH is used. 

At the "More— proipt, press: 
(ENTER) to go advance one line 
(BREAK) or 'Q' to quit 



(SPACE) or any other key to advance 
one screenful 
Usage: More [-1 -t] [file] [...I 

-1 = shot the naie of the file before viewing 

(handy for lultiple files) 
-w = don't allow lines to wrap around. 
This option truncates the line to a 
length of window's I size - I. 

If you are using a teriiaal other than the 
OS-9 Level II windowing systei, you will need 
to change the reverse on/off sequence as well 
as the clear line sequence 
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* mi: 


Kore works great with Shell+'s wildcards! 


CR 


fcb 


JOd Carriage Return 


* It also works well with external teriiaals. 








* Just change the Reverse on/off and DelLine 


Start 


pshs 


X put away X teiporarily, 


* bytes 


to latch your teriinal 's codes, 




leax 


IntSvc,pe point to the interrupt 




If you are rinniag 'lore' on a teriinal, 


* 




service routine 


* it assaiea an 80x24 teriinal screen size. 


it 


os9 


F$Icpt and lake the systei aware of 


* By: Boisy G. 


Pitre 


puis 


X then get X back for processing 


* 1204 Love Street 




clr 


Path Clear the path (assuie stdin) 


* Brookhaven, KS 39601 




clr 


LFlag 


* Internet 


: bgpitregseabass.st.isi.edi 




Ibsr 


GetSize 






* 


Parsing of the line is done here 


ifpl 




Parse 


Ida 


,x+ 


use 


/DD/DEFS/0B9defs 




cipa 


*$20 


endc 






beq 
cipa 


Parse 
» - 


* Teriinal specific equates: 




beq 


GetOpt 


mil equ 


30 




cipa 


#50d 


YSIZE equ 


24 




bne 


Openit 


DELHE equ 


53 




tst 


Path 


BEVOH equ 


$l!2J 




beq 


Cycle 


REVOFP equ 


$lf21 




Ibra 


Done 


lod 


Size, laie.Prgri^Objct.teentn, Start, Fin 


GetOpt 


Ida 


,x+ 


Saie fcs 


/M/ 




cipa 


#520 


Ed fcb 


2 




beq 
anda 


Parse 


Path rib 


I 




cipa 


TL 


Response rib 


1 




bne 


IsitV 


XH rib 


I 




eoi 


LFlag 


XL rib 


1 




bra 


Parse 


TH rib 


1 


IsItSf 


cipa 


rv 


YL rib 


1 




Ibne 


Done 


Lflag rib 


1 




Ida 


XL 


Buffer rib 


250 




deca 




FileBttf rib 


SO 




sta 


XH 


Stack rib 


200 




bra 


Parse 






* Here, 


we test to see if the -I 


* I lake the Pans buffer large in case 


* flag 


is set (to display the file 


* the wildcard 


ezpaasioa is long. 


* header) If 


30, we print it, else 


* else the systei crashes. You can 


* we continue 


lith reading... 


* alternately 


ase the shell's leiory 


Openit 


leax 


■l,x 


* lodifier (i. 


e. Hi] to insire a big buffer. 




tst 


LFlag 


Pans rib 


4096 




beq 
pshs 


Open2 

X 


Fin equ 


• 




Ibsr 

puis 


PutHead 

X 


Message fdb 


lEVOH Eererse Yideo on 




dec 


YH Decreient counter twice to take into 


fee 


/"More--/ 




dee 


YH account the header (two lines) 


fdb 


REVOFF Reverse Video off 








MessLen equ 


'-Message 


Open2 


Ida 
os9 


Head. Prepare for reading 
IJOpen Then open the file 


Header fdb 


$0a0d 




Ibcs 


Error Exit on error 


fee 


/»»"" File: / 




pshs 


X Save X for later use 


HeadLen equ 


»-ffeader 




sta 
bra 


Path ...else save the path 
ReadLin and read the line 


DelLine fcb 


DELHE Delete line char 
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Cycle Ida 


YL Get the low order byte 


ata 


YH and use the high aa a counter 


bar 


PutCR 


SeadLIne Ida 


Path Get the path 


Idy 


1250 lax 'chars read = 250 


leax 


Buffer, u point to the buffer 


089 


I$ReadLn and read the line 


bCB 


EOF if error, check for EOF 


tst 


XH Is high order byte set? 


beq 


VriteOut Hope, continue as norial 


pshs 


X else loop until end of the 


Idb 


XH atring and place a CR at the 


Loop leax 


l,x end. 


decb 


Thia is unnecessary if the line 


bne 


Loop is less than XH, but doesn't slow 


Ida 


t$Od dovn the processing considerably 


sta 


,x and would take longer if we 


actually 




puis 


X checked to see if a CR existed. 


tfriteOut Ida 


*1 Prepare to write to atdout 


os9 


r$VritLn Write! 


bcs 


Error if error, leave 


dec 


TH else decrenent the counter 


bne 


ReadLine if not 0, sore linea to show 


leax 


Message, pc Prepare to show lessage 


Idy 


fMessLen 


Ida 


*2 to stderr... 


039 


I$Vrite write it! 


bcs 


Error 


Ida 


U How get response 


Idy 


*1 of one character 


leax 


Response, ti froi stderr 


os9 


I$Read 


bcs 


Error 


bar 


KillLine 


bra 


Teatlnp 


PatCR leax 


CR,pc 


Ida 


n 


Idy 


#1 


oa9 


rSVrite 


bca 


Error 


rts 




KillLiae Ida 


t2 Here we aend a delete line char 


Idy 


M to clean the proipt. 


leax 


DelLine,pc 


oa9 


rSVrite 


bca 


Error 


rts 




EOF cipb 


*E$EOF Check for end-of-file 


bne 


Error 


tat 


Path If the path is stdin, we can quit 


beq 


Done 
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puis 


X ell 


3e there lay be lore files 




Ibra 


Parse on 


thecomand line. 


Done 


cirb 






Error 


039 


FJExit 




Testlnp 


Ida 


Reaponae 


Here we test 


t 






the response at proipt 




ciipa 


m 


is it cr? 




beq 


OneLine 


yep, go up one line 




anda 


»Sdf 


else lask uppercase 




cipa 


*'Q 


Ls it Q? 




Ibne 


Cycle 


nope, 


t 






lust be space or other char 




bra 


Done 


else we quit 


IntSvc 


bar 


KillLine 


Interrupt service routine 




bra 


Done 





OneLine Ida tl Ve go here if (EHTER) was pressed 
sta yH,u to increient only one line 
Ibra ReadLine 

* Here, we actually print the header 

* for the file we are working on. 
PutHead pshs x 

leax 

Idy 

Ida 

039 

bcs 

puis 

bsr 

Ida 

leax 

Idy 



bcs 
rts 



Header, per 
IHeadLen 

n 

IJVrite 
Error 

X 

SaveFile 

n 

FiIeBuf,u 

m 

I$VritLn 
Error 



t*titit*tttttt*ttftft*tttttti**ftfttttttttftt 

* Saves filenaie in buffer 



* Entry: X - Address where filenaie is 

t 

* Exit: Hone. Filenaie is stored in FileBuf 



SaveFile pshs 


X 


leay 


FileBif,! 


SaveFI Ida 


,x+ 


cipa 


f$20 


bae 


Sa7eF3 


Ida 


»$0d 


SaTeF3 sta 


,7+ 


cipa 


f$(ld 


bae 


SaveFZ 


puis 


2 
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rts 



GetSize pshs 


X 






n 


Using stdout... 




mi 


, 




I$GetStt 


Find the aiie o£ window 




ChekErr 






XH 


Save the X value 




ra 


Save the J value 




XH 


Clear high-order byte of X 




XL 


Decreient the X value 




TL 


Decreient the T value 




ri 


and dec 7 again 




TL 


Do the initial load 




ra 


o£ the counter 


pals 


z 





rtB 

* IE this is true, then we are probably dealing with a 

* teninal, not a hardware window. 

* Ve'll assuie 80x24 as the teninal size. 
ChekErr cipb tESUnkSvc 

bne Error 
Ida »XSIZE 
Bta XL 
Ida #TSIZE 
sta TL 
clr XH 
rts 
eiod 

equ * 
end 



Siie 



ooooooooaoOOOOOOOOOOoooooooooo 

Scribe - Selected lessages froi the Os9 area on 05-05-1992 

Good news to all you HD owner who can't seei to find the tine HDUT requires to backup your hard drive. 
Bring on 'STREAM' 



************ 



ABOUT FOUR TIMES FASTER THAS HDHT ************ 



Soie tiie ago, Bruce Isted wrote a backup prograi called STREAM. It has since been tested extensivly by five or six 
beta testers. I'l pleased to tell you that it is now available as of about a week ago when Kii Bergian phoned Bruce 
and asked if it was OK to add it to the OCH Library. It is also available on the Keyboard BBS (see tag line) as of 
this day. 

HD Kit was and still is a great prograi but soie what SLOV. Bruce still recoiends using Fete LyalTs 'Files' lodule 
froi HD Kit or D.P. Johnson's 'LS' coniand, with STREAK. 



Here is a conparison between the two prograis using a 20 leg H[ 
sect & 1.44 leg). 

STATS OH STREAK 7S HD KIT [using a 20 leg ST-225 Hard Disk Drivel 



and THREE types of disk drives (1440 sect., 2880 



Std disk Drives !! 80 tk disk drives !! 1.44 leg disk dr. 
1440 Sector Drives!! 2880 Sector Drives!! 5760 Sector Drives 
M !! 

disks Backup 'nME:!! disks" Backup TIKE: !!d*isks' Backup' TIKE: 
used 1 disk TOTALIIused 1 disk TOTAL! lused I disk TOTAL 





It 


II 


55 


9.5iin 523iin!! 28 
II 


19.iin 535iin!l not tried via HD KIT 

It 


55 


1.8iiQ 99iin!! 28 

II 


4.iin 112iia!! 14 S.iin I12iin via STREAK 
It 



ooooooooooOOOOOOOOOOoooooooooo 
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